home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Rockford Magazine
/
Rockford_Magazine_007_19xx_-_de_Disk_2_of_2_Side_B.d64
/
notendef _anl
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
966b
|
25 lines
1 rem**************** martin roscher
2 rem** logiker ** blattur 31
3 rem** am ** a-6840 goetzis
4 rem** 3.0kt.1993 ** oesterreich
5 rem*********************************
10 print"[147] logiker [165] *** notendef-anleitung *** [146]
20 [153]" 1. oktave mit okt=x eingeben
30 print" 2. poke lob,fnlo(y) poke hib,fnhi(y)
40 [153]" y=1 bis 12 (1=c,2=c#,3=d,...)
50 def fnp(n)=int(7493*(2^(okt+(n-10)/12)+.5)
60 def fnhi(n)=int(fnp(n)/256)
70 def fnlo(n)=int(fnp(n)-fnhi(n)*256)
80 sid=54272:lob=sid:hib=sid+1
90 print" poke laut,x....lautstaerke(0-15)
100 [153]" poke welle,x...wellenform
110 laut=sid+24:welle=sid+4:anschl=sid+5:hlt=sid+6
120 print"poke tvl,x: poke tvh,x
130 tvl[178]sid[170]2:tvh[178]sid[170]3
140 [153]" poke anschl,ansl*16+abschwall
150 print" poke hlt,hlt*16+ausklang
160 [161] b$:[139] b$[178]""[167] 160
170 [161]a$:[139]a$[178]""[167] 170
180 [153]"load wenn sie frequenzen abspielen wollen, geht dies folgendermassen:
190 print" poke lob,fnsl(freq) poke hib,fnsh(freq)